home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Tools.Dxr / Internal_214_animal clickon.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  877 b   |  39 lines
  1. on mouseUp
  2.   global gCritter, gMoovLength, balloonSprite, gMasterData
  3.   set vSprite to the clickOn
  4.   case vSprite of
  5.     4:
  6.       set gCritter to "lion"
  7.       set vSound to "36"
  8.     5:
  9.       set gCritter to "ostrich"
  10.       set vSound to "34"
  11.     6:
  12.       set gCritter to "goose"
  13.       set vSound to "37"
  14.     7:
  15.       set gCritter to "sloth"
  16.       set vSound to "40"
  17.     8:
  18.       set gCritter to "croc"
  19.       set vSound to "38"
  20.     9:
  21.       set gCritter to "humbird"
  22.       set vSound to "35"
  23.     10:
  24.       set gCritter to "chiwawa"
  25.       set vSound to "42"
  26.     11:
  27.       set gCritter to "chameleo"
  28.       set vSound to "39"
  29.     12:
  30.       set gCritter to "hamster"
  31.       set vSound to "41"
  32.   end case
  33.   set gMoovLength to the duration of member (gCritter & ".mov")
  34.   go(the frame + 1)
  35.   puppetSprite(balloonSprite, 1)
  36.   showBalloon(gCritter)
  37.   goNarrator(gMasterData, vSound)
  38. end
  39.